home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / docs / misc / UMSFAQv2.lha / UMS-FAQ / bin / mailup < prev    next >
Encoding:
Text File  |  1995-05-11  |  816 b   |  41 lines
  1. ; Magic Stuff ! check for mail
  2.  
  3. sumsprint MY_1STNAME "" "exported=0 AND group=*"*"" FO="<MsgID,%s> - <Group,%s>\n" >ram:maillist
  4. IF `list ram:maillist lformat="%l"` EQ "empty"
  5.     ECHO "No Mail to send"
  6.     SKIP goofy
  7. ENDIF
  8.  
  9. ECHO "Sending :"
  10. TYPE ram:maillist
  11. DELETE ram:maillist QUIET
  12.  
  13. IF EXISTS ram:mailup
  14.     DELETE ram:mailup
  15. ENDIF
  16.  
  17. ; script to send mail up
  18. LAB retry
  19.  
  20. umssmtp -h post.demon.co.uk >ram:mailup
  21.  
  22. ; Check the size of the mailup file.  This will be "empty" if no mail sent or
  23. ; it will contain something if mail has left the machine
  24.  
  25. IF EXISTS ram:mailup
  26.     IF `list ram:mailup lformat="%l"` EQ "empty"        ; no mail went
  27.         ECHO "Retrying Mail"
  28.         SKIP BACK retry
  29.     ELSE                                                ; Mail dispatched
  30.         TYPE ram:Mailup
  31.         DELETE ram:mailup
  32.         DELETE env:mailsize
  33.     ENDIF
  34.  
  35. ECHO "Mail Sent O.K."
  36.  
  37. LAB goofy
  38.  
  39. WAIT 5
  40. ENDCLI
  41.